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TANDY DISC SYSTEM IS NOW AVAILABLE 


You read it first here. (Maybe we should gloat and add "ОҒ  course".) 


It vas in July. Commercials for the RAINBOW 
aside. the Tandy Disc system is a 
reality. We know, because there is 





A REAL. BIG ONE! one sitting right here next to our 
Color Comruter. (And we didn't pull 

There are a Iot Of GOEL in i any strings to get it, either.) Ро 

z пош. you can probably see опе at 

the November issue of the RAINBOW! dos TM local Radio. cheek ERE 


We hope you enjoy them. center or Sr 


As we wrote earlier, the Disc 
Operating System is based іп ROM -- 


There is a Videotex downloading 
routine (that can be used with any 


host computer system), our Е 

basketball stats program, а takeout a Д Е can PHE ee he UU 

on Tandy’s new disc drives a E bs im m ва t сЕ ырды аср 

biorhythm program ... and а whole Аты iE athe i TOt. сақалар» 
There are three more drives 


lot more. 1 r : : 
available. Our earlier information 


on prices was accurate -- but we 
were $4 low on drive 0. Drives 1, 2 
Put. too, there’s a great program and 3 were on target. Put you can 


that will allow you to make backup get that information in the new 
copies of your ROM packs. the catalog. 

beginning of a series on 
role-Flaying game aids. reviews and 
more tutorials, helps. hints and 
tips. 


Next month a.a some special 
seasonal stuff is comtemplated. 


For your $599, you get a drive, 
a drive controller (which is, 
actually, a large-size ROM Cart), a 
ribbon cable that hooks the cart up 
with drives @ and 1. and manual апа 
a free (!) disk. Incidentally, the 
box all this comes in says "custom 
mfg. in Japan." 


We're really gratified by the 
response to the FAINPOU. Our 
subscription list is really growing 
-- and we like to think that’s 
because you like what you see. 


THanks. for oUF support! The whole thing is packaged 


very well and comes in two boxes 
inside the shipping box. Obviously, 
Tandy will use the same packaging 
materials for the other drives. The 


We'd also appreciate your help 
in spreading the word about the 
RAINPOW. And. althouglt we know it 


di iei 1 t ae manual is in the familiar 
Mri m rises Roin iba ern iid Ur multi-colored format of "Getting 
Әскен ләт Жуда» Id сеге Started" and "Going Ahead." Its 


enough about YOU and YOUR computer 
to advertise in the ONLY monthly 
magazine devoted exclusively to the 
Color Computer. (Continued on Page 2) 


called "Color Computer Disc System" 
(Should it be "Spinning  Along..."?) 


Fage 2 


DISC (Continued from pg. 1) 


and features a пеш character to go 
with the drawings of the Color 
Computer -- a disc with arms and 
legs. As usual, the documentation 
is excellent. It is.sort of a cross 
between the simple (in the early 
going) to a little complex (when 
sequential and direct access formats 
are discussed). We do wish there 
were a little more detail -- sans 
embedded formats -- near the end of 
the book. 


As to the drive itself, it has 
worked flawlessly since its arrival 
several days ago. And, because the 
Operating system is ROM-based, its 
use is transparent to the user. In 
other words, its there when you want 
it but it doesn’t interfere with you 
in апу way. Апа, because your 
cassette port isn’t involved in this 
new system, you can CLOAD а program 
from tape and then SAVE it onto disc 
directly. I had tuo substantial 
tares full of games ~- and T 
transferred them one at a time with 
total ease. Now they are оп disc, 
and totally accessable in just 
seconds. The longest program I have 
-- which took two and one-half 
minutes to load from tape -- loaded 
from disc in 12 seconds. 


We were disappointed there is 


а AUTO command to generate 
automatic line numbers in the disc 
utilities. (If this bugs you as 


mich as it does us. check the review 
сп MASTER CONTROL in this issue for 
е solution.) Yet, one of the other 
big problems from the tape system 
has been solved. Through its VERIFY 
command, the disc will check itself 
*' be sure your program was saved 
accurately. No more triple saves 
and prayers. 


The DOS, which is referred to 
in the documentation as “Disc 
Pasic," is pretty much the same as 
that available for the Model III: 
without the utilities. The discs 
are the same as those used by Model 
III. 


PROGRAM QUICKIE... 


WHERE AM 177 


You probably know you сап make 
multiple saves to tape simply by 
enclosing the CSAVE command in a 
loop. And, its a good idea to do 
this because there is no way to 
verify a tape write and if there is 
a tape problem, your copy can Бе 
lost. 


Sometimes, though, those saves 
are long and you just sit there 
wondering “where am 17" 


Here’s a way to figure it out: 
Just put a counter іп your direct 


command. Then, you’ll know what 
CSAVE you аге оп. The direct 
command line looks like this: FOR 


X=1 ТО 3J:PRINT "ОМ 
"filename" NEXT X 


SAVE" X : CSAVE 


If you want to save more or 
less than three programs; change the 
three in the X-loop. If you want to 
put space between the individual 
saves, add the following after the 
last colon above: MOTOR  ON:FOR Y=1 
TO 750 :NEXT Y:MOTOR OFF: 


And yes, Virginia, it was 
written by Microsoft. 


A disc system won’t Бе for 
everyone. However, there are many 
applications for which a disc is the 
only way to 90 effectively and this 
system seems to have the features 
necessary for some pretty 
sophisticated programming. There 
are some other disc systems which 
will or are to become available, and 
we will keep you up to date оп them 
as is possible. 


PASHKETPRALL STATSKEEPER WILL HAVE Fa 3 
THEM ROEVUNCING ALONG 


When you gather your friends together for a TV game or two this coming 
basketball season -- set up a second TV and keep score for them with 
5ТАТОКЕЕРЕЕ. ` 


STATSKEEPER, in a larger version, was used last season to keep a full 
eet of statistics on some games for the University of Louisville Cardinals. 
Pecause all statistics are kept up to date as of the time things occur, the 
final stats can be done instantly when the game ends. That program keeps 
track of every possible activity -- including minutes played. 


STATSKEEPER is designed to be used at home (unless you want to take 
your Color Computer to the game).  Pecause of that, and in an effort to get 
a professional-look box score display, the number of statistics categories 
are limited to field goals attempted and made and free throus attempted and 
made.  STATSKEEPER keeps up with total points for each player and team апд 
computes free throw and field goal percentages. 


You use the "enter" option when a player comes into the game. This 
controls who is displayed in the box score. Pe sure to "enter" the 
starting five. If you forget, the statistics will still accumulate -- they 


just won't be displayed. 


Jt has been our experience that other statistical categories(such as 
rebounds, minutes plaued and so оп) are most difficult to determine 
watching on TV. The field goal attempts might be a little difficult, but 
if you can concentrate on those, your statistics should come out all 
right. 


(Continued on Page 8) 





..-. FOR UNDER $0.75 [that's SIX BITS) APIECE! 
For the COLOR COMPUTER: 


You just spent your vacation money on the Extended 
BASIC Color Computer, and now you want to buy 
softwarel!!??? 


Don't skip meals — get CHROMASETTE Magazine! Each 
month your computer will get a balanced diet of 6 or 
more programs on cassette (just load and run!). Along 
with the tape comes some notes on the programs, along 
with tidbits on the Color Computer world. 





= 
The Fine Print: 
Issues are sent First Class Mail. 
All issues from July 81 on available — ask for list. 
Programs are for the Extended BASIC model only. 
Сай. residents add 6% to single copies. Overseas — 
add $10 to subscriptions, add $1 to single copies. ә) f 
Sent AO rate. —_ Chromasette Magazine 
MasterCard/Visa welcome! — for those who relish every byte (that pun even hurt me). 
TERR The Bottom Line: 
С à Chromasette Magazine 1 year (12 ізмез) .............. 545.00 
Тро. Box 1087 Santa Barbara, СА 93109 6 months (6 6905) sieeve, cca $25.00 
. E |(805) 963-1066 Single Copies qe... terres $5.00 
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SOFTWARE REVIEW... 


MASTER CONTROL 


MASTER CONTROL is the best 
thing that's happened to tired 
fingers since molded keyboards. 


One of the things that has 
bugged us about the Extended Color 
Pasic ccmmand set is that there is 
no AUTO function included for ease 
of line numbering, especially when 
doing long lists of DATA statements. 
MASTER CONTROL gives us a line 
numbering function that works with 
ease -- and that's just one of some 
half a hundred things it does to 
make life easier for anyone who is 
writing programs. 


This little gem (available from 
SOFT SECTOR HARKETING, 6250 
Middlebelt, Garden City, МІ 48135 
for $24.75) automatically enters 50 
commands at the touch of а finger. 
All you have to do іс press the down 
arrow and any of the keys, which are 
marked with PASIC statements, and 
the statement you want appears on 
the screen. For example, if you 
һауе the automatic numbering in 
effect, you can write a line number 
and the DATA statement by pressing 
the "ENTER", down arrow and "D" keys 
оп 19. 


For those of us who freauently 
"ара "IF" as "OF" and who seem to 
always hit the "8" instead of the 
"t" in CHRS, this is а real plus 
that kills those syntax errors. The 
zommands which need them (such as 
HILS) that have оғепіпэ parentheses 
in them һауе the parentheses opening 
as part of the assigned statement. 


In addition, the MOTOR. TRACE, 
^UDIO and RUN commands execute 
directly -- without your having to 
press the ENTER key. This really 
zaves a lot of time. 


Finally, there is what SQFT 
SECTOR describes as a “custom key", 
which you can program to be anything 
you want. This is a major bonus! 
If. for instances you are running 
though a long series of IF 
statements which a couple of 
parameters, чои сап program the 


custom key for that whole list of 
Parameters -- and save literally 
hours of typing. This is an 
excellent feature. 


How do you keep track of what 
all the keys stand for? SOFT SECTOR 
supplies a template to overlay on 
the keyboard. That also means you 
can take it off if you want. While 
the template itself has a sticky 
backing, you can stick it оп some 
cardboard and just cut holes for the 
keys. We did this and it worked 
very well. 


MASTER CONTROL is written іп 
machine code, so it is very fast. 
It only takes up 1100 bytes and сап 


be relocated -- especially important 
if uou have or anticipate upgrading 
to ЗІК. It does require 16H to 
operate; but does not require 
Extended 

However а number of the 


commands are Extended commands. 
They, obviously, won’t work without 
Extended. 


MASTER CONTROL is a workmanlike 
program that does everything well. 
If you are doing any amount of your 
own programming, it is well worth 
the moderate cost in terms of typing 
hours saved-alone. 


MAILING NOTICE 


From time to time, the RAINEOW 
may make its mailing list available 
to highly qualified firms which 
Produce products for the Color 
Computer. 


While we believe this 
information will be helpful to чоч, 
we respect your right to privacu and 
will not disclose your name or 
address to anyone if you will merely 
inform us that this is your 
desire. 


Thank you. 


Hardware Review... 


SERIALS PARALLEL 
CONVERTER 


O.K., gou're just not satisfied 
with either of the ‘printers Radio 
Shack has out for the Color Computer 
-- either the Line Printer "VII or 
the newest опе. the Line Printer 
VIII. 


Or, maybe, you just want to be 
able to switch printers at some time 
in the future and keep your present 
LP VII or VIII for now. 


The choice is yours, but you 
can gain some real flexibility with 
the РІЗОС SERIAL/PARALLEL CONVERTER 
from THE MICRO WORKS (Р.О. Pox 1110. 
Del Mar, СА, 92014). 


For $69.95. the PIS80C will 
allow you to use the serial port of 
your Color Computer for : your 
Printer, but will convert the 
signals for use on the many parallel 
Printers now on the market. That, 
by the wau, includes virtually every 
major printer manufacturer. You can 
purchase conversion kits for a 
number of printers, but the cost is 
much mcre than is this little "black 
box" (which really IS a black 
box 


We've had the РІВОС ur and 
running with an Epson printer for 
tuo months now. It has worked 
perfectly. Wot a single hitch. 


The РІЗОС comes with a four pin 
DIN plug which fits into the Color 
Computer’s Serial port and а power 
cord which plugs into а standard 
socket. The other end is an edge 
card which has the “standard” 
Centronics configuration. You plug 
one end of à printer ribbon cable 
into the РІЗОС and the other into 
your printer. That’s all! 


Since the LP VII and LP VIII 
both have parallel connections. you 
can use your РІЗОС with one of those 
Printers ... as well as with any 
other printer Radio Shack sells. 
You can also plua into an Epson, 
Centronics. Okidata, etc., etc. 


Program wuickie... 
Page 5 
TIMES SQUARE 
HEADER 


M 
So. you've written a neat 
Program but you don't really have a 
good way to introduce it ,.. and 
you’re tired. anyway. 


Here’s a quick way to use some 
of the more interesting capabilities 
of the Color Computer to produce a 
"header" for a program that's. as 
they sau, fast and dirty. | 


This little gem will give you a 
Times Sauare-like message center оп 
your screen. The words will just 
scroll along. And. from the code 
below, чом”11 see that it's easy to 
produce. You might even want to use 
it to leave messages for other 
members of the family! ® 


For those without Extended 
Color Pasic, change the STRINGS 
(15,32) in" Tine 3 to 16 blank 
spaces. Line 11 can be deleted, its 
just there to keep the display neat 
in this example. 


Here's the RP® (RAINBOW Program 
Quickie) --with thanks to Joe 
PRennett--: 


3 = جود‎ THIS PROGRAM IS 
PROUGHT TO YOU THROUGH THE 
RAINPOU...THE MONTHLY MAGAZ 
INE FOR COLOR COMPUTER USER 
S. YOU CAN PUT YOUR OVN MES 
SAGE HERE. ------- "+STRINGS 
(15,32) 

5 FOR А=1 TO LEN(A$)-15:E1-7E1 
*1:IF E1>4 THEM Еі=1:Е=1125 
:ЕЕ=1140 

7 РРІМТЭЗ268, МІС+ (АФ, А, 15); 

9 SOUND КМО (240), 1:МЕХТ А 


11 GOTO 11 
In short. this fine piece of 
hardware gives ypu complete 


flexibility to buy whatever printer 
you wish without ccstina an arm and 
a leg for spec 


features. 


This is a good buy. 
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HOW”? SG YOUR DAY 7 
NEED BIORHYTH™M HELP? 


Here's another program from JARP Software that will help you out іп 
dealing with everyday life. 


Its called JARPIORHYTHM and it will generate a complete chart for you. 
The chart can be as short as a day, or as long as a year. And, the chart 
will graphically display just how your biorhythms fluctuate over their 
different cycles. : 


You do need a printer for this program. Put it comes out with a 
handsome display. We've heard that programs such as this can be a big hit 
at flea markets! 


For those of you with tired fingers, JARPRIORHYTHM can be obtained on a 
tape with PSYCHIC APTITUDE TEST (from RAINBOW Vol. I, No. 3) for $14.95 by 
writing JARE at 1169 Florida St., Imperial Peach, СА 92022. Please include 
$1 for postage and handling. 


The Listing: 
. 


10 CLS:PRINT3196,TAB(11) "EIORHYT 
HM":FRINTTAB(19)"BY":PRINTTAB(9) 
"JARE SOFTWARE": PRINT: PRINT: PRIN 
TTAB(4)"(C) JARB SOFTWARE 1981": 
FORI=iTO2500: NEXTI 

20 CLS:FRINT2160,"THIS PROGRAM I 
S DESIGNED TO WORK"; :FRINT"WITH 
TEE LINE PRINTER VII.":PRIHT"UHI 
LE IT WILL WORK WITH OTHER": PRIN 
T"PRINTERS, IT MAY NOT FORMAT ОМ 
“ІРКІМТ"ТНЕ PRINTER GS DESIGNED. 
20 PRINT"YOU MUST HAVE A PRINTER 
ON-LINE"s:PRINT"TO OPERATE THIS 


40 FRINT:LINEINHFUT"TO BEGIN, FRE 
55 <ENTER> КЕҮ. "; КЮ 


EO ^ X X X X * X X X X X EE 
боса JARE21ORHYTH x 
go ға BY x 
90 ° & JARB SOFTWARE x 
100 7% WRITTEN BY x 
110 ^x J. E. BENNETT ж 
mai М x 
115 7% JOHN L. UREAN % 
120 '& (С) JARB SOFTWARE % 
1ZO ^x 1981 x 
140 ** x *X X X X k X X X * X x 
150 PS=PEEK (45214): IFPS=40RPS=6T 


HEHZOCELSE150 

160 CLS:FRINT3224,"PRINTER NOT O 
НЫНЧЕ... е о 2 SPRINT! DO YOU 
HAVE А FRINTER"3; : IHPUTX$ 

170 IFLEFT$(X$,1)«»2"Y"THEN2CO 
183 CLZ:PRINT3224,"YES7?":PRINT"P 
LEASE FLACE FRINTER ON-LINE.":LI 
SEINPUT"PRESS ENTER WHEN ON-LINE 
"ХФ 


190 PS=PEEK (652714) : ІҒРЅ=40КР5=6Т 
HEN200ELSE160 

200 CLEAR200 

210 CLS:PRINT0O224,"FRINTING TITL 
E... PLEASE WAIT." 

220 (-0:Т-25:Р-2.14159265255 

220 РКІМТЯ-2.СНК%(21):РБІМТ%-2,Т 
АВ (16) "BIORHYTHM": PRINT#—-2, TAB(1 
9) "ВҮ": РКІМТ#-2, ТАВ (14) "ЈАКВ SOF 
TWARE" 

240 PRINT#~2, СНКФ (30) ; ТАВ (22) "(С 
) JARB SOFTWARE 1981";СНКФ(102;Г 
HR$ (10) 5 CHR$ (10) 

250 B$-"YES":CLS:PRINT3224,."I AM 
HOW READY FOR FURTHER INPUT"; :F 
ORI=1T019000: NEXTI 

257 L=0:T=25:P=3. 1415926525 

250 CLS: PRINT9224," "sLINEINFUT" 

WHAT IS YOUR МАМЕ?" ; NS 

270 CLS:PRINT3224,"": INFUT" THIS 

CHART IS FOR HOW MANY DAYS":E1 

275 GOSUS 1650 

280 77-о 

300 CLS:PRINT2224,"ENTER BIRTH D 

АТЕ.2%.22:..42т..." 

210 GOSUB 550 

212: GOSUB 1700 

320 GOSUE72ZO 

320 JB=JD 

240 CLS:PRINT9224, "ENTER START D 

ATE FOR CHART....." 

250 27-1 

560 GOSUBSS0 

243 60508 1750 

270 GCSUB720 

X80 JC-JD 

290 IF ЈС>=ЈВ THEN 410 


(Continued on Page 14) 


SOFTWARE REVIEW... 


COLOR METEORODIDS 


The second program 
ASSOCIATES” Space Trilogy 
COLOR METEOROIDS, and it 
its brothers COLOR SPACE 


and ЕРАСЕ WAR -- а 
machine language game 
bring hours of 
devotees. 


Althcugh you need joysticks to 
Play, you do not need Extended Color 


SPECTRAL do in the 
called position of 
is -- like have full 


INVADERS 
fast-action, 
that will ship for 
delight to There’s also 


arcades is control the 

your gun. Here, you 
control -- as well as 
control of the ship itself. And for 
the really adept, you get а bonus 
every 10,080 

a demonstration mode 


Foints. 


for cocktail party conversation. 


Finally, 
that will allow your ship to move 


there is ап option 


Pasic. This can be a real plus for into hyperspace. Here, gou just 


some, and it also shows 


just what 


blip out of one location and into 


чоч can do with machine language. another. you must excercise 
caution -- sometimes various meanies 
The game is like arcade in hyperspace can destroy your 
versions with a number of ship. 
entancsments and plenty action. 
Pesicallu. ycu are the pilot of a The graphics of COLOR 
ship navigating though the middle of METEOROIDS are excellent and the 
a meteor swarm. You have to fire at action іс fast-paced. The sound 
the meteors, breaking apart. effects, despite a disclaimer from 


They blast apart, but, 


have to hit them again 


to make them finally ao 
there are 16 different 
difficulty, this is a game in which 
the whole family can compete. 


Gne of the things 


with COLOR HMETEOROIDPS that 


әз ва Ж 


Editor: 


We enjcyed the РАЕН very 
suck. I'm into ways the Color 
foseuter can help srcund the house 
and ay husband is really into 


335tt. 


Го you inou of a PACMAN gane 
thet is evaileble? 


РАТНУ КЕННЕН 
Sverland Park. Kansas 


eee et 


you can't 


then. you SFECTRAL, 
again!) 
Since That; 
levels of added effects 
levels. 


space shir, 


combined with 


are good. as well. 


special 
such as difficulty 


hyperspace, and an alien 
make COLOR  METEOROTDS 


($21.95 from SPECTRAL, 141 Harvard 


can do Ave.. 


. 
.* 
.” 


Editer: 


] aa a first tise computer user 
and fcc] frustrated by the magazines 
ss al] the information is written 
for other ccaruters. 


What 1 would really like is a 
list of functicns for Model 1 and 
III and the sane set of ccomands for 
ey calor coseuter. 


JAMES PAER 
Spokane, WA 


Tacoma. WA 99445) an 
excellent buy. 


Editor: 


1 recently purchased a cory of 
the RAINBOW (#2) and vas quite 
Pleased with the articles and 
especially with LASER STAR. 


Just one comment abcut the last 
iszue: In line 10 of the Grarhics 
Printer. shouldn't ']27 Бе 5207 
Also. ycur choice of X for the 
vertical and Y for tke hcrizonal 
coordinates is confusing. llorrallu: 
X is the horizonal. 


KATHY Gif PEL 
Detroit 


(Ed. tote: 71) works. too. 
Thanks for the information. AS to 
the X and Y. you're right. It must 
have been a late night when that спе 
vas written!) 
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STATS 


(Continued from ра, 3) 


Don’t worry about length of names in the box score, as they will be 
chopred off to fit. We have made provision for games in which more than 
100 points are scored, however, to satisfy you NPA fans. 


All pregame entries (such as 
through regular input statements. 


names and numbers) are done 
in order to speed execution of 


the program, all statistics are entered via ІМКЕҮ%. The exception to this 


is the "Continue?" input uhen a box 


is being displaued. This allows you to 


retain the box on the screen for study while things are slow. 


The only restriction in the program 


is that you сап use only 12 


Players. This is simply in an effort to retain all players on the screen 
-- and we have left "room" in the DIM statements for 16 if you want more 


реоғі1е and less heading information. 
use 11 and label the 12th "others." 


Two hints: If you hit the 


statistics collecting part of the proaram, 


It you opt for the 12 players, simply 


letter or number while in the 
just keep hitting the RETURN key 


until uou get back to the "ENTER PLAYER’S TEAM" prompt. Once you have 


initialized the program, you can get back 


entering GOTO 210. 


to that prompt by PREAKing and 


This program is written for Extended Color Pasic, but the few things 


it uses from that instruction 


simple to convert. The 


STRINGE(S2,"=") is simply a line of 32 equals marks. LINE INPUT сап be 
replaced by INPUT, but we used it for display purposes. 


The listing: 


97 XXtXXXXXTXXXt*xXxxxxtxxxxxxt 
O "XXxXXXXXXXXXxxxxxx*xxxxxxxxx 


1 
11 7%% STATSKEEFER PROGRAM жж 


ic, "аж xx 
13 "i (с) 1981 xx 
14 "ki xx 
15 'x*& FALSOFT xx 


16 '"tx*àittXXXXxXxxkxxkx*xxxxxxxxxt 

7 C"OEX3XXX*XxXXx*XxXxxxxtxXxtxxxtxxxt 
25 DIM HN$(16),HNC16),VN$(16),VN 
(14) ,Н5 (16), НБ (16) ,HF (16) ,HL (16) 
SAP (16) ,HT (16) ,VT(16) ,VG(16) ,VS¢ 
163,VF (16), М (16), МЕ (16) 


Zo BSe="% % ни-ни HH 
-ił #4" 

71 BZ4-" PLAYER FGM-FGA FTM 
-FTA PTS" 

со BTs=" TOTALS на -ER өн 
-#6 mua" 

52 РСф=" LIMITI. 
АУЫ 


75 CLS:PRINT:LINEINFUT "NAME THE 
HOME TEAM ";H$:LINEINFUT "NAME 

THE VISITING TEAM "3V% 

40 CLE: FRINTTAB(G)"--- HOME TEAM 
41 FRINT 

49 IHPUT "HOW MANY PLAYERS ARE E 
LIGIELE TO PARTICIPATE FOR TH 
E HOME TEAM";SS 

5О FCR X=1 TO 65 

55 ILS=STRINGS (22, "=") РКІМТІ( Ф; 


60 FRINTH$" PLAYER'S NAME":FRINT 
TAB (4) ; : INFUTHNS (X) 

72 PRINTHN$ (X)"^S NUMBER"; : INFUT 
HN (X) 

ЕО NEXT X 

90 CLS:PRINTTAB(4) "--- VISITING 
TEAM ---" 

95 INFUT "HOW MANY PLAYERS ARE E 
(ІСІМЕ TO PLAY FOR THE VISIT 
ORS"; VV 

100 FOR X=1 TO VV 

103 PRINTTAB(10)" (ENTERED GAME 


105 PRINTIL$; 
110 PRINTV$" PLAYER'S МАМЕ": PRIN 
TTAB (4) ; : INFUTVNS (X) 

120 PRINTYN (X)"*S МОМБЕК": INFU 
TVNOO 

130 NEXT X 

140 CLS:PRINT316z2,"STATSKEEFER I 
NITIALIZATICN":FRINT" 


COMFLETE" 
150 PRINT2Z89,"PRESS «ENTER^ TO 
BEGIN";:FRINT" sco 


REKEEP ING"; :FRINT9462," ";:LINEI 
МРМТСМФ:СІ5 


210 РКІМТ"---> ENTER PLAYER’S ТЕ 

AM <---":РБІМТ" (HEME OR (V 
ISITOR" 

211 T£-INKEYS:IF T$="" THEN 211 


212 CLS:IF T£2"V" THEN 4OOELSE P 
RINTH$" STATISTIC" 


DOWNIOAD ING FROM 
VIDEOTE х 


Py Jorge Mir 


VIDEO^AID is an enhancement to 
the | VIDFRIHNT program which was 
Fublished in last month's  RAINPOU. 
It clears up some bugs, but it also 
allows you to download programs from 
Compuserve and IPS systems. 


This  Froaram revises Radio 
Shack's ЧІПЕОТЕХ. You need the 
VIDEOTEX program to make it work. 
Put. bu following the instructions, 
you will be able to view pages 
stored in memory, select anu опе 
Faqe for viewing, coru any or all 
paces to tape. load pages previously 
frETCd to tape, obtain hard copy and 
dawnload programs tand save them to 
AFC 


You must first modifu VIDEOTEX. 
If you have 1éh. just load VIDEOTEX. 
tupe FOKES1@3.255 and <ЕНТЕК:. Then 
eave the revision to tape by using 
CEAVEN "UTITDEGTEX".1728.2889.1728. 
Use the neu tape from nou on. 


These with @2® сап do a little 
more. First load VIDEOTEY. Then 
ture PCLEARI, load the VIDFIX 
Frearam belou: and run it. Then 
reload the corrected  VIDEOTEZ (the 
on? genereted to tape bu VIDFIX). 


Poth systems cen now run the 
revised VIDESTE X Aftor you 
disconnect, RESET tte computer to 
return to EASIC. 


Heu, load  VIDEOAID (below). 
Fire? ture РОКЕ25,6:РОКЕ2641 
<ЕМТЕР:. Then lead VIDENAID with 
the normal CLOAD. 


You Can nou type sinale letters 
to do the following: <P: Go back to 
previGus page; ESPACE: Next pages 
«5 Srve page bein3 vicwed to біре: 


ZL? Imad previously saved paae; С> 
Chanae to specific page: «<P> Print 
faan being vieweds р> Download. 


Make sure the printer is оп before 
weing «Fo. the recorder before using 
aL Ser үз, 


Чеп ‘you download, a white 
cursor will appear at the top 
left-hand corner of the screen. Uze 
the arrow keus to move. If "uou move 
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the cursor off the screen down, the 
next page will come ар. and 
vise-versa. 


Mark the program чои wish to 
download bu: 


Press «<B> for beginning. Move 
the cursor to the top of the first 
character and press the "Г". You 


won't notice any change іп the 


screen, however. 


Mark the end of each line with 
ап «L^. Place the cursor on top of 
the last character. Press "L". 


Mark the end of the program. 
Use an «E: instead of an <L= as іп 
the previous step. The program will 
then get ready to load onto tape. 
You will be prompted to azsian a 
program name, and there will be a 
delay while the program reformats 
information for the tape reccrder. 


You can then НИМ the program 
again or. if you wish to make a 
second copy, simply GOTOI10. edvance 
to the last page. type <П>. mark the 
last character with the «E^ and it 
will be done again. 

(Continued cn Page 1€) 


C- C- WRITER 


WORD PROCESSING 
for the 
TRS-80% Color Computer 


Written in user aodifiable Extended BASIC and features Page 
Foraatting, Block Move, Tabs, Deletion, Insertion, Global 
Search and Replace, Centering, Indenting, Page Pause, ASCII 
Code Transaission, Justification, and File Chaining. 


16 or 32K varsion selectable at run tiae. The user aay aove 
the repeating cursor anywhere in а sentence to insert, 
delete, or change text. The ASCII code feature coabined 
with powerful editing aakes C. C. WRITER ideal for print 
graphics. — C. C. WRITER will drive any printer that can be 
connected to the Color Coaputer. C. C. WRITER is siaple to 
learn but has powerful features. 


Send for free inforaation or $30.00 for the prograa and 
docuaentation if you can't wait. 


TRANS/TECH 
194 Lockwood Lane 
Bloomingdale, IL 60108 


1 TRS-B0 is а Tradesark of Tandy Corp. 
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GET AND PUT 
High-Res Graphic Movement 


Pu J. E. Pennett 
^ 
Hou would you like to be able to move an image around the screen іп 
PASIC. Sure, there are several ways to accomplish this. One way is to 
draw a Ficture, erase it, and then draw it in a neu location. 


The problem with this method is that it is very slow and creates a 
flickering effect. Tandy came to our rescue with the Color Computer 
graphic commands GET and PUT. These commands help you avoid the problems 
of srFeed and flicker, and still use just PASIC to write your programs. The 
manual for Extended Color Pasic 
but doen't explain their use to the average programmer. This article will 
e:rFlain how you can use these commands in your own programs. 


First. there are sevral other things that must be done before you сап 
call up GET and PUT. In order to illustrate these things, we will write a 
Fregram to help us. 


The first item on our list is to define the size array we will need 
tor cur picture. This array will be used each time we either GET a picture 
er FUT a picture. Its size is limited to how much memory we wish to 
dedicate to the picture. Оп a 1£N RAM Color Computer, you have about 1400 
elements of array storage. This is because each element uses 5 bytes of 
memoru. At 1400 elements, you will use 7000 bytes (1400 elements * 5 bytes 
= TK). In the highest mode of resolution, this leaves little for program 
use. To figure out the size array needed, Just ағаш your picture; to 
scale. on paper. Then count how manu pixels across it is (width) апд how 
manu Pixels high it is (length). 


As an examPle, enter this program and run it: 


10 РМОГЕ 4,1:PCLS:SCPEEH 1,1 
20 CIRCLE (128.95),5 
20 GOTO 30 


This Program displays a circle іп the center of the screen. 10 Fixels 
across. The array size needed to cover this circle is 10 wide by 10 lang. 
This gives us an array of 100 elements іп size, and uses 500 bytzs of 
memory. Using this size, add the following line to the example program 
you've typed іп: 


5 DIM А(9.9) 


The GET command has a format that uou must follow to insure accurate 
coverage of the Picture you wish to store. This format is: GET 
(GTAPTFOIHT) - CENDFOIMNT), DESTINATION, G 


The STARTPOIHT is the upper left corner coordinates of your display. 
The ENDPOINT is the lower right corner coordinates of your display. The 
БЕЗТІПАТІОН refers to the array name you have DIMensioned іп Line 5. in 
this case, array А. Тһе "G" will tell the computer that uou wish to have 
the array stored with full grarhics detail. This is optional, but we'll 
use it here and you should, too, for best results. 


Мош back to the Program. Mate the following changes: 


10 A-129:P-294: А.Р) з 
ОА CIRCLE (A.P),5 (Continued on Page 11) 
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What we've done is change the center point of the circle to be stated 
in terms of variables instead of fixed numeric points. Our circle will 
still Бе in the center of the screen, but we can now use the variables 
later without redefining their value. 


Now, add the following line: 
25 GET (A-5,R-5)-(A*5,P*5),A.G 


As you can see, ue have used the variables to allow us to set our 
start and end points more easily. The numeric eauivalents of the variables 
would show we are now defining a sauare that is 10 pixels on a side. This 
will allow us to GET the complete circle we have previously drawn. 


When the program is run, the circle vill be stored in array A. Nou 
that it is stored, what do we do with it? Well, how about drawing it in 
another location to prove it is stored in memory? We can do this by using 
the PUT command to place our circle anywhere we want on the screen. 


The PUT command has the format: PUT (STARTPOINT) - (ENDPOINT), 
SOURCE, ACTION 


The STARTPOINT and ENDPOINT are the neu locations of the corners of 
our array. These can be any values that are within screen limits AND that 
hold the array to the size that was defined earlier in the program. In our 
example, the size is 10:10. The SOURCE is the name of the array ше have 
stored earlier, array А. The ACTION is опе of five options -- PSET, 
PRESET, AND, МОТ and OR. 


FSET is the action command ue will use. This will allow all points 
(pixels) that are set in the original array to be set in the target 
location. 


PRESET will reset any fFixele in the target location that were 
originally set. 


AMD will compare the points in the original array with the points іп 
the target location. If both are set, the neu point will remain set. If 
one or the other is not set, the point will be reset. 


NOT will reverse the state of every point in the target location. 
That is, if the point is set, it vill be reset: if it is reset, it will be 
zet. 


OR will compare the points in the array with the points in the target 
location and if either is set. the screen will be set. 


With all this in mind, add the following lines to your progran: 


20 AzA-IHTGJOYSTNCO)/65. 3-5 
В-Р«ІМТ(УОҮ5ТК(1)/5.23-5 

40 PUT (A4-5,R-5)-((A*5.P*5),4 
PSET 

50 GOTO 30 


Line 30 will now allow the right jcustick to control movement in апу 
direction at a maximum speed of up to five Pixels at a time. This movement 
сап be stopped by bringing the joustick to the exact center. The farther 
you move from the center, the faster the circle will move. Line 40 will 
PUT the circle at the location you have defined with the joystick. Line 50 
will branch the program back to Line 30 for an update of the Jjoystick 
location. (Czritinued on Fage 12) 
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Run the program and you will 
see that there are several problems 
with the operation. First, if you 
allow the circle to get too close to 
the screen edge, you will get a 


function call error. Let’s take 
care of this problem ‘by limiting the 
Screen movement of the circle. We 


do this by adding: 


31 IF A425 THEN А=5 
32 IF 452250 THEN A-2250 
33 IF Be=5 THEN B=5 
За IF B>=186 THEN P-186 


After adding these lines, ше 
can move the circle anywhere on the 
Screen and it will stop or move 
along the ed3e if it gets close. 
The other problem we have is that 
the circle leaves a trail as it 
moves. While this can be used to 
create some pretty patterns, that 
isn’t what we want to do. 


We can eliminate the problem in 
two ways. Either we must enlarge 
the array to allow for the five 
pixel maximum movement of the 
circle. or we must decrease the size 
of the drawing to allow for a blank 
border around the drawing. 


Both methods have drawbacks. 
but either сап be used. If you 
increase the array size, you will 
use more memory and chance running 
into the nefarious OM error if your 


program is long. If you decrease 
the drawing size, you lose 
resolution, possibly affecting the 
effect you wanted. Since we have 
Plenty of memory in this small 
program. we will use the first 
method. Make the following 


changes: 


Change Line 5 tc: 
5 рІмМА (20,20) 


Change Line 25 to: 
25 GET (A-10,P-10)-(A+10,B+10). 


А.а 


Change Lines 31-34 to: 
М IF А:-10 THEN A=10 
iz IF Ar=245 THEN A-2245 
33 IF В<-10 THEM B=10 
За IF P:=181 






Change Line 40 to: 
40 PUT (A-10,P-10)-(A+10,P+10), 
А. PSET 


Nou ue have a circle that will 
move under direction of the joystick 
and does not flicker. The speed of 
movement сап be altered by changing 
the values in line 30, but you must 
also change the size of your array 
if you wish a faster movement. 
Otherwise, you will again leave a 


trail of picture parts on the 
screen. 

Experiment with the other 
action command options. You might 


be pleasantly surprised with them. 


Now that you have а better 
understanding of GET and PUT, look 
back through the last several issues 
of the RAINPOW and see how І used 
them in LASER STAR and HELO  PATTLE. 
Remember, you have to use the same 
PMODE to PUT that you used to GET, 
Or gou mau not obtain the results 
gou tried to achieve. 


Have fun with these and be sure 
to let me know via the RAINPOW how 
you are doing or if you have any 
auestions or problems with which I 
can help. 


the RATMBOW 
PUELISHED BY FALECFT 
£03 Timber Fidge Drive 
Prospect, KY 40053 


Lawrence C, Falk -- Editor 


Тіс R&THPOW is intendzd for the personal use and plea- 
sure of ite subscribers and rerrcducticn by eny means is 
forbidden. Use of programs and infcrmaticn herein is for 
the sinale end иге of subscribers and any other use is 
prohibited, 

TRS-28, Color Computer and Extended Color F2sic are 
trademarks of Tandy Corp. 

All programs herein are distributed on an ‘as-is’ 
basis. without warranty, 

Cutscriptions to the RAINFOW are $12 rer year. 


COFRECTIOWN 


On Page é of RAINPGW “Vol. 1. 
Ho. 4, in the continuation of Al 
Morgan’s VIDEO PRINT program, under 
the instructions, substitute the 
direct command POKE 25.8 for the 
PCLEARI. 


Al says this will make the 
program work correctly. 









SOFTWRRE 
DEVELOPMENT 
SYSTEM 





The Micro Works Software Development 
System (SDS80C) is a complete 6809 
editor, assembler and monitor package 
contained in one Color Computer program 


pack! Vastly superior to RAM-based 
assembiers/editors, the 50580С is non- 
volatile, meaning that if your application 
Program bombs, it сап! destroy your 
editor/assembler. Plus it leaves almost all 
of 16K or 32K RAM free for your program. 
Since all three programs, editor, assembler 
and monitor are co-resident, we eliminate 
tedious program loading when going back 
and forth from editing to assembly and 
debugging! 


The powerful screen-oriented Editor 


features finds, changes, moves, copys and 
much more. All keyshave convenient auto 
repeat (typamatic), and since no line 
numbers are required, the full width of the 
Screen may be used to generate well com- 
mented code. 






The Assembler features a// of the 
foliowing: complete 6809 instruction set; 
complete 6800 set supported for cross- 
assembly; conditional assembly; local 


labels; assembly to cassette tape or to 
memory; listing to screen or printer; and 
mnemonic error codes instead of numbers. 






The versatile ABUG monitor is a compact 
version of CBUG, tailored for debugging 
programs generated by the Assembler and 
Editor. It features examine/change of 
memory or registers, cassette load and 
save, breakpoints and more. 


SDS80C Price: $59.95 






















"MIG 
МУО [52567 Р.О. BOX 1110, DEL MAR, СА 82014 (714) 842-2400 


EDITOR, 
RSSEMBLER 
RND MORE! 


TIRED OF WAITING FOR SOFTWARE DELIVERY? 


WE SHIP FROM STOCK! 


TI CRRCK SE 


THOSE ROMS! 


SOURCE GENERATOR: This package Is a 
disassembler which runs on the color 
computer and enables you to generate 
your own source listing of the BASIC 
interpreter ROM. Also Included is a 
documentation package which gives 
useful ROM entry points, complete mem- 
ory map, І/О hardware details and more. 
Disassembier features include cross- 
referencing of variables and labels; output 
code which can be reassembled; output to 
an 80-column printer, small printer or 
Screen; and a data table area specification 
which defaults to the table boundaries in 
the interpreter ROM. A 16K system is 
required for the use of this cassette. 


80C Disassembler Price: $49.95 










LEARN &GBOS! 


6809 Assembly Language Programming, 
by Lance Leventhal, contains the most 
comprehensive reference material avail- 
able for programming your Color 
Computer. 


Price: $16.95 


PRRRLLEL D! 


USE A PARALLEL PRINTER with your 
Color Computer! Adaptor box plugs into 
the serial port and allows use of 
Centronics/Radio Shack compatible 
printers with parallel interface. Assembled 
and tested. 


РІВОС Price: $69.95 
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CBUG IS HERE! 


MONITOR TAPE: A cassette tape which 

allows you to: 

* Examine or change memory using а 
formatted hex display 

* Save areas of memory to cassette in 
binary (a "CSAVEM") 

* Download/upload data or programs to a 
host system 

* Move the video display page throughout 
RAM 

* Send or receive RS-232 at up to 9600 
baud 

* |nvestigate and activate features of your 
computer, such as hires graphics or 
machine-language music 

e Use your color computer as ап intelli- 
gent peripheral for another computer, a 
Color display or a 6809 program develop- 
ment tool 


The monitor has 19 commands in all, and is 
relocatable and re-entrant. 


CBUG TapePrice: $29.95 





MONITOR ROM: The same program as 
above, supplied In 2716 EPROM. This 
allows you to use the entire RAM space. 
And you don't need to re-load the monitor 
each time you use It. The EPROM plugs 
into the Extended Basic ROM Socket or a 
modified ROMPACK. 


CBUG ROM Price: $39.95 










32K RAM! 


MEMORY UPGRADE KITS: Consisting of 
4116 200ns. integrated circuits, with 
instructions for installation. 4K-16K Kit 
Price: $39.95. 16K-32K Kit (requires solder- 
ing experience) Price: $39.95 


MasterCharge/Visa Accepted 


California residents add 6% tax. 
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400 PRINT"CHART DATE IS EARLIER 
THAN BIRTH"; : РКІМТ "ОАТЕ. PLEASE 
TRY AGAIN. ":FORI=1TO600: NEXTI:GO 
T0280 

410 FORK=1T0100:NEXTK 

420 GOSUB790 

450 N=JC-JB 

440 У-23: 6050В880: Б050В900 

450 V=28: GOSUR880: 6050В900 

460 V=33: GOSUBBBO0: GOSUR900 

470 GOSUB1070 

480 GOSUB1540 

490 71-21%1:РКІМТ%-2,"% "4C$; ТАВ 
(15) L$ 3 TAB(75)DWS+" ж" 

500 DW1=DW1+1 

510 IF DW1>7 THEN DWi=1 

520 JC=JC+1:L=L+1: IF L«E1 THEN 4 
30 

550 IF Z1>=E1 THEN 1220 

540 L=0:GOT0420 

550 54=54+1:РКІМТ 

560 INPUT"MONTH (1 ТО 12) "; м 

570 IF 54<=1 THEN L1=M 

S80 M=INT(M):IF М<1 OR М>12 THEN 
560 

590 INFUT"DAY (1 TO 21) ";р 

600 IF 54<-1 THEN L2=D 

610 IF ZZ=1 THEN 620 ELSE 640 
620 CLS:PRINT996, "PLEASE ENTER Т 
HE DAY OF THE WEEK"; sPRINT"1=MON 
DAY":PRINT"2-TUESDAY":PRINT"Z-UE 
DNESDAY":FRINT"A4-THURSDAY ": PRINT 
“S=FRIDAY "s FRINT"6=SATURDAY": РКІ 
NT" 7=SUNCDAY" 

620 INPUTDW1 

640 D=INT(D): IF D<1 OR D?31 THE 
М 590 

650 INPUT"YEAR (ENTER ONLY LAST 
TWO DIGITS OF THE YEAR)"; Y$ 

654 IF (ЕМ(Ү%) >=3 THEN GOTO 650 
ELSE GOTO 660 

660 Y=VAL (Y$):IF 54<-1 THEN L2=Y 
670 IF 54<=1 THEN р4=М+р+Ү 

680 Y=INT(Y):IF Y<O THEN 650 

690 IF Y>99 THEN 710 

700 YzY*1900:PRINTY; "ASSUMED. ": Е 
ORI-1TOSOO:NEXTI:CLS 

710 RETURN 

720 W-FIX((M-14)2/12) 

750 JD=INT (1461¥ (Y+48304+W) /4) 
740 B=FIX (267% (M-Z-UX* 12) /12) 

790 JD=JD+B 

760 B=INTCINT (21(Y*49004U)/100)/ 
4) 

770 Јр=Јр+р-52075-Е 

780 RETURN 

790 IFBS="YES"AND Z>=1 THEN RETU 
RN ELSE 800 

600 Z=Z+1:CLS 

810 PRINT#—2, TAB(26) "BIORHYTHM" 
820 РКІМТ#-2, ТАВ (29) "FOR" 

B20 X1=(40— (INT (LEN(N$) 2) ) ) 


840 PRINT#-2, ТАВ (Х1) МФ; CHRS (20) ; 
CHR$ (10) :PRINT4-2, "THIS CHART IS 
FOR"E1"DAYS."; ТАВ (55) "BIRTHDATE 
IS"L15"/"5L2; "/"; L3; CHR$ (10) 
850 PRINT#-2," DATE "; TAB(17)3 
850 PRINT#-2,"L O W";TAB(40)"Q"; 
TAB(SS)"H I G H";TAB(72)" DAY 


870 PRINT#-2, STRINGS (BO, 95) : КЕТО 


880 W=INT (N/V) : RZN- (WHY) 
890 RETURN 
900 IF У<>22 THEN 950 
910 L$=CHR$(32):FOR K=1 TO 5:1%- 
L$+L$: NEXT 
920 L$=L$+LEFT$ (L$, 19) 
950 += ЕҒТФ (L$, T) +CHR¢ (48) *RIGH 
Т%(1%,Т) 
940 IF V=23 THEN C$-2"P" 
950 IF V=28 THEN C$-"E" 
960 IF V=33 THEN СФ="І" 
970 W-R/M:W-Ut*2t*P 
980 W=TKSIN(W) : W=W4+T4+1.5 
990 W=INT (W):A$-2MID$ (Ф.И, 1) 
1000 IF АФ-"Р" OR AS="E" OR А=" 
¥" THEN C$z2"x" 
1010 IF W=1 THEN 1050 
1020 IF W=T+T+1 THEN 1060 
1030 L$-LEFT$(L$,W—-1)0*C£$4RIGHT$( 
L$, T+T+1-W) 
1040 RETURN 
1С50 L$-2C$*RIGHT$ (L$, T+T) : RETURN 
1060 L$-LEFT$(L$, TX T) *C$: RETURN 
1070 W=JC+68569: R=INT (414/146097 
) 
1080 W-W-INT((146097*R*4:)/4) 
1090 Y=INT (4000¥ (W*120/1461001) 
1100 W=W-INT (1461%Y/4)+31 
1110 M=INT (80%W/2447) 
1120 D=W-INT (2447%*M/80) 
1130 W=INT(M/11):M=M+2-124W 
1140 Y=100% (R-49) +Y+W 
1150 AS=STRE¢ (М) sW=LEN(AS)-1 
1160 C$-MID£$ (At.2,.W)+"/" 
1170 AS=STRE (0) : W=LEN (AS) –1 
1180 С+=С%+МІРФ (A$, 2,0) +"/" 
1190 At=STRE(Y) s И= ЕМ(АФ) – 1 
1200 C£-C£44MID$ (АФ, W, 2) 
1210 RETURN 
1220 PRINTYAB(11)"END OF RUN":FR 
INT#-2, STRINGS (SO, 95) sFRINT#-2, Т 
AR (26) "END OF RUN" 
1220 РКІЧТЯ-2, CHRE (21) 3 ТАВ (17) "T 
HANK YOU" ;CHR¢ (10) ; CHARS (30) 
1240 CLS:PRINT2224, “ANOTHER RUN 
CY/7N) ?" 
1250 ARS=INKEYS$: IFARS=""THEN1 250 
1260 IFARS$<?"Y" THEN1270ELSESO 
1270 CLS: PRINTI224, "THANKS ANYWA 
Y, BYE FOR NOW. "sFORI=1T01000: NE 
XTI:CLS: END 2 

(Continued on Page 17 


STATS 
212 FEINT 
"SPRINTTAB(4) " COR 
: FRINT 

214 


(Continued from rq. 2) 
"ENTER FLAYER^S NUMBER 
> 99: 


FOR BOX)" 


ZAS=INKEY$: IFZAS="" THEN 214 
ZB£-INKEY$:1FZB$-"" THEN 215 
ZC£-20$*2B$ 
PN=‘VAL (7С%) 
IF PN=HN (1) 





FHz1:FRINT"PLAYER: 


PN=HN (2) 
PN=HN (2) 
PN=HN (4) 
PN=HN (5) 
PN=HN (6) 
PN=HN (7) 
PN=HN (CB) 
PN=HN (9) 
ЕМ-НМ(10 
PN=HN (11 
FN=HN(12 


сто1осо 
511 PH=2:FRINT 


^ 


THEN 
THEN 
THEN 
THEN 
THEN 


THEN 3 


THEN 


THEN : 


THEN 


) THEN 219 
) THEN 520 
) THEN 321 
FN=99 THEN 4000 

STIJF 


"PLAYER: 


"HN£(12:6 


"HN£ (2): 


509 IF FN=VN(10) 

910 IF РМ-УМ(11) 

511 IF PN=VN(12) 
12 IF PN=99 THEN 5000 

600 PV=1:PRINT“PLAYER: 

OTO1900 

601 FV-2:FRINT"FLAYER: 

OTO19CO 

602 ҒУ-3:РБІМТ"РІ АҮЕБ: 

0701900 

604 ҒУ-4:РБІМТ"РІ АҮЕБ: 

OTO19CO 

605 ҒУ-5:РКІМТ"РІ АҮЕБ: 

0701900 

605 FV-6:FRINT"FLAYER: 

OTO1 900 

607 ҒУ-7:РБІМТ"РІ АҮЕБ: 

01701900 

608 РУ-В:РБІМТ"РІ АҮЕБ: 

0701900 

609 ҒУ-9:РБІМТ"РІ АҮЕБ: 

01701900 

610 ҒУ-10:РКІМТ"РІ АҮЕБ: 
: 60701900 

611 ҒЕУ-11:РКІМТ"РІ АҮЕБ: 


ТНЕМ 610 
ТНЕМ 611 
ТНЕМ 612 
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"VN$(120:6 
"УМ (C2) :6G 
"VNE (3) 2G 
"VN£ (4) :6 
"ММ (5) 3G 
"УМЕ (6):G 
"VN£ (7) 3G 
"VN£ (8) :6 
"VN£ (92:6 

"VN£ (10) 


"ИМЕ (11) 


Е0Т01000 





65TO1CcOO 
314 FHzZS:FRINT "PLAYER: 
GOTO10GO 
218 FH26:FRIHT “PLAYER: 
TOicoOo 
zZ:FRIHT"PLAYER: 





Ті? FHz8:FRINT"PLAYER: 
QTO1 GOG 

518 FHz9:FRINT"PLAYER: 
CcTO1000 

Ті? FHz10:FRINT"PLAYER: 
:БОТО1СОО 

220 ЕнН-11:РКІМТ"РІ АҮЕБ: 
:ЕОТО1СОО 

221 PHz212:PRINT'FLAYER: 
:а20101000 


agg FRINTV£" STATISTIC" 
ENTER PLAYER'S NUMPE 


ара PRINT" 
Қ“ ББІМТТАВ%4) "COR 799° 
a RINT 


42:2 PRINT 


"PLAYER: 


“PLAYER: 


"HNE C3) : 


"НАМЕ (4): 


“HN (5): 


"HNS (6): 


"НМЕ (7) 3G 


"Нм (8) 3G 


"НМ (9) 3G 


“HNE (10) 


"HN£ (11) 


"НМЕ C12) 


FOR BOX? 


42.0 ZAS=INEEVE2 IF 2А%-""ТНЕМаОТО 
452 2B$-INKEYS:IF Zet=""THEN4SSS 


425 2С?2-28з>%2В% 
440 FN=VAL (22%) 
ZOO IF РМаУМ(1) 
501 IF FN=VN(2) 
ФО? IF PNSVM(G) 
$57 IF PN=VN(4} 
504 IF FN=YN(S) 
SOS IF FN=VN(6? 
SOS IF PM=VN(7) 
SO7 IF FN-VN(B) 
SOA TF FINO 





THEN 40 
THEN £01 
THEN 4603 
THEN 40:4 
THEN 605 
THEN 606 
THEN 607 
THEN 608 
Tera, ANO 





: 65701900 

612 PV=12:PRINT"PLAYER: 
: 50701900 

1000 PRINT: PRINT: FRINTTAB (12) "<E 
МТЕК>" 

1001 PRINTTAR (3) " (6) OAL"; TAR (17) 
" (NDO GCAL" 

1002 FRINTTAB(S) "(FY REE THROW"; T 
AB(17)"(L} INE MISS" 

1002 РКІМТТАВ (10) ":Е) NTERED GAME 


"YN$ (12) 


1010 HC$-INKEYS$:IF НСФ-"" THEN 1 
010 ELSE FRINT НСФ 

Lets CLS 

1020 IF HC$="G" THEN HG (FH) =H5(P 
1:HS(FH) -ES (FH) +1: PASFA+1: PM= 
ЕМ»! 

1020 IF НСФ-"М" THEN HS (FH) =HS (F 
H)+1:PA=FA+1 

1040 IF HCt="F" THEN HF (PH) =HF (Р 
Hi +1: HL (FH) =HL (ЕН) +1: FF=FF+1:LT= 
LT+1 

1645 iF HOS="L" THEN HL (PH) =HL (Р 
ID +irLT=LT+1 

1047 IF НС4-"Е" THEM MP (FH) SME СР 








GOTOAL1LO 

PRINT: PRINT: PRINTTAB(12) “<E 
NTERE" 

1912 ҒЕІНЧТТАВ (=) " (6) Оа"; TAB(17) 
"(Һ90 COAL" 

1°20 FRIHTTAB(Z)"((F)REE THROW"; Т 
ABR(17)"(L) INE MISS" 

1922 ЕКІМТТАВ (10) "(Е) NTERED GAME 
1950 МСЗ.=ІМЕЕҮФ: IF VCt="" THEN 1 
950 ELSE FRINT УС 

1960 CLS (Continued оп Page 172 





Face 16 
DOWNLOAD (Continued from ро, 9 


I am sure this combination will 


270 PRINT48-2,a$:L-0:0$-"" 
280 NEXTX:GOTO20 


Open all kinds of different 290 СЅАМЕМ"Р"+МІрФ (STR$ (PAGE) , 2) 
opportunities for you. It has for ,PF,FP*511.P: GOTO2O 
те. 


The listings: 


1 REM **VIDFIX PY JORGE MIR** 

= REM жж (c) 1981 

10 А-20208 

20 PORE 2102.255 

SO РОКЕ 2112.53 

40 FOR Х-1728 ТО 2829 

50 РОКЕ А.РЕЕК(Х) 

55 PRINT СНРФ(РЕЕК(Х)9: 

60 А=А+1:МЕХТ X 

70 PRINT: PRINT"READY RECORDER" 

ВО IF IMFEY$-""THENH 80 

90 FOR Х-і TO 5 

100 CSAUVEM"''IDEOTEX". 30209, 
32219. 30208 

110 MOTOR ОМ 

120 ҒОН 2-1 ТО 500:МЕХТ 2 

120 MOTOR OFF 

140 END 


7 **VIDEOAID** 
8 жжіс) Pu JORGE MIR, 1981* 


О CLEARS12:PAGE-6: GOSUB120 

5 DEFFNA(L)-INT (L/Z2) Xz2 

О A$-INKEY$: IF INKEY$-" " THENZO 

О ІҒАФ-" "THENPAGE-FAGE *1 

О IFA$-"B"THENPAGE-FAGE-1 

SO IFA$-"D"THENZ4O 

60 IFA$-"S"THEN290 

70 IFA$-"P"THEN240 

ВО IFA$-"L"THENZOO 

96 IFA$-"C"THENGOSUBZ10 

100 GOSUE110:GOTO20 

110 IFFAGE-62THENFAGE-0: БОТО20 
120 FOR F=0TO1:FOR E-OTO1:FOR D= 
OTO1:FORC-OTO1:FO0R В=0Т01: РОБ A= 
OTO1 

130 IFPAGE-A$Z24BX16*C4B84D£ A«EX2 
+F ТНЕМ15О 

140 NEXTA, P.C,D,E,F 

150 FOR Х-65478 TO 65488 STEP2 
160 РОКЕХ, 200: МЕХТ X 

170 IFF=1 THENFOE65479, 100 

180 IFE=1THENPOKE65481, 100 

190 IFD-1THEMFOKE&S48Z, 100 

TOO IFC=1THENFOMEES 455, 100 

210 IFB-1THENFDEKE65487, 100 

220 IFA-1THENFOKE65489, 100 

220 P-FAGEx*9512:RETURN 

240 L=0:A$="":FOR Х=РТОР+511 

250 А=РЕЕК (Х) : IFA=296ANDAS=127TH 
ENA=A-64 

260 AS=AS+CHRS (A) :L=L+1: IFL<>Z2T 
HEN280 


500 GOSUBS20: CLOADMSR$: PAGE= (FEE 
K (2HO1E7) X256*PFEEK (3HO1EB) ? / 512: 
GOSUB 120: GOTO20 

510 CLS:PRINT"YOU ARE VIEWING РА 
GE#"PAGE 

ХТО PRINT"LOCATED АТ"Р" ("HEX $ (Р) 
н ) " 

220 PRINT: INFUT"ENTER NEW PAGE # 
"З PAGE: RETURN 

240 А1=РЕЕК (Р) : РОКЕР, 207: АЗ-Р 
350 ІФ=ІМКЕҮФ: IFI$-""THENZSO 
560 I=ASC (1%) 

570 ІҒІФ-"В"ТНЕМВЕ-Р ELSE IF I$- 
"E" ТНЕМРОКЕР+1 , 255 ELSE IF I$-" 
L" THEN РОКЕР+1, 15 ELSE IF I$-"C 
" THEN РОКЕР+1, 96 ELSE IF I$-"Q" 
THEN GOSUER6OO ELSE IF I=9 THEN 

P=P+1 

ЗВО IFI=92THENP=INT (P/22) ¥324+31 

ELSE IF І-21 THEN P=INT(P/22) #52 
ELSE IF 1=94 THENP=F-22 ELSE IF 
I-10 THEN Р=Р+52 ELSE IF I=8 ТН 

ЕМ F=P-1:ELSE IF 1=9 ТНЕМР=Р+1 

590 РОКЕ AZ,A1: IFIS="E" THEN420 
400 ІЕР>ҒАСЕЖ512%511ТНЕМРАСЕ-РАС 

E+1:Pi=P—-FNA(P) : СОЅОВ110: Р=Р+Р1 

410 IFPFXPAGEX*XZI2THENFPAGEXPFAGE-1: 

GOSUER110 

420 60Т0:40 

420 CLS:PRINT"GET RECORDER READY 
": INPUT"PROGRAM МАМЕ"; I$ 

440 OFEN"O",-1,1I$ 

450 У-РЕЕК(ВЕ):ІҒУ-255 THEN480 

460 IFV=296 AND У<-127 THEN У-у- 

64 

470 IFV=12THEN480 ELSE IF V=S TH 

EN 490 ELSE L#=L%+CHR$ (У) :GOTO49 

o 

480 PRINTL$:PRINT4-1,L$: IFV=255T 

HENS10ELSEL$="" 

490 IFV-z2 THEN S=22 ELSE S=96 

Seo BE=BE+1:GOTC4SO 

510 CLOSE-1:CLS:PRINT"DOWNLOAD H 

^S BEEN COMPLETED" 

S20 END 

S20 INFUT "“PAGE";PG: IFFG=OTHENSR 

L=""ELSESRS="P"+MIDS(STRS$ (FG) .2) 

S25 RETURN 

$00 ҒОКЕР, 175 

510 ІЗ-ІМКЕҮ%:ІҒІФ-""ТНЕМ510 

$29 А1-А5С(1%):ІҒА1->22АМБрА1<-62 

THENA1=A1+64; Р=Р+ 1 : RETURN 

620 RETURN 

640 РОКЕАЗ. А1: Р= ІМТ (P/22) ¥224+625 

FOR Ғ-Р TO Р-52 STEF-1: IFFEEK (Р) 

=96ТНЕММЕХТ 

641 RETURN 


STATS (Continued from pq 15) 


1970 IF VC$-"G" THEN VG(PV)=VG(P 
V) *1: VS CPV) =VS (PV) +1: JP=JP+1: JM= 
JM*1 

1975 IF VC$="N" THEN VS(PV)=VS(P 
V)*1: JP=JP+1 қ 

1980 IF УСФ-"Е" THEN VF (РУ) -УЕ(Р 
V) *1:VL (PV) =VL (PV) * 1: KT2-KT«1: KF= 
KF+1 

1985 IF VC$="L" THEN VL (PV) =VL(P 
V)*1:KT-KT-41 

1990 IF VC$-"E" THEN VE (PV) =VE (Р 
V)+1 

1995 БОТО210 

1997 STOP 

2020 GOTO210 

4000 .CLS:PRINTH$ " BOX SCORE" 
4010 PRINTSTRING$ (22, "-"); 

4015 PRINTBZ$; 

4020 FOR X=1 TO SS 

4025 HT (X) = CHG (X) 82) +НЕ (ХЭ 

4030 IF MP(X)»0 THEN PRINTUSINGB 
S$; HN$ (X) ,HG O0 ,HS OO „HF OO ,HL (X 
),HT OO 

4055 GH=GH+HG (X) : SH=SH+HS (X) : FH= 
FH+HF (X) sLH=LH+HL (X) : TH=TH+HT (X) 
4040 NEXT X 

4045 PRINTUSINGBT$; ОН, SH, FH, LH, T 
H 

4047 IF SH>O THEN GP=(GH/SH) ¥100 
4048 IF LHO THEN FP=(FH/LH) #100 
4049 PRINTUSINGFC$;GP, FP 

4050 PRINT2480," "3: INPUT “CONTI 
NUE"; CNS 

4060 CLS: GH=0: SH=0: FH=0: LH=0: TH= 
0:60Т0210 

5000 CLS:PRINTV$" BOX SCORE" 
5010 PRINTSTRINGS$ (Z2, "-"); 

5015 PRINTBZ$; 

5020 FOR Х=1 TO VV 

5025 VT(X)=(VG OO #2) *VF OO 

5020 IF VE(X)>0 THEN PRINTUSINGB 
$$; VN$ ОХ), VG OO, VS GO VF OO VL (X 
),VTOO 

5025 GV=GV+VG (X) : SV=SV+VS (X) :FV= 
FV+VF OO :LV=LV+VL (X) : TV=TV+VT (X) 
5040 NEXT X 

5045 PRINTUSINGBT$; GV, SV,FV,LV,T 
у 

5047 IF SV>0 THEN BP=(GV/SV) #100 
5048 IF 1У20 THEN CP=(FV/LV) £100 
5049 PRINTUSINGPCS$; BP, CP 

5050 PRINTD480," "3: INPUT "CONTI 
NUE"; CNS 

5060 CLS: GV=0: SV=0:FV=0:LV=0: TV= 
0: GOTO210 
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BIO (Continued from pg. 14) 


1520 FOR I=1 TO S:PRINT&-2,CHR$( 
10) :NEXT I:RETURN 

1530 GOTO10 

1540 ON DW1 GOTO 1550,1540,1570, 
1580,1590,1500, 1610 

1550 DW$="MON": RETURN 

1560 DW$="TUE":RETURN 

1570 DW$="WED":RETURN 

1580 DW$="THU" : RETURN 

1590 DW$="FRI":RETURN 

1600 DW$="SAT": RETURN 

1610 DW$="SUN": RETURN 

1650 CLS:PRINT:PRINT:PRINT:PRINT 


"NAME : "SNS 

1660 PRINT:PRINT"CHART IS FOR "; 
E1;" DAYS." 

1665 PRINT:PRINT: INPUT"IS THIS I 
NFORMATION CORRECT (Y/N) "3 ХФ 
1666 IF LEFT$(X$,1)«»5"Y" THEN GO 
TO 260 


1670 RETURN 

1700 CLS:PRINT:PRINT:PRINT"MONTH 
:"5M 

1710 PRINT:PRINT"DAY :";D 

1720 PRINT:PRINT"YEAR :"';Y 

1730 PRINT: INPUT"IS THIS INFORMA 

TION CORRECT (Y/N) s:":iX$ 
1735 IF ІЕҒТФ (ХФ, 1) < >"Ү" THEN GO 

TO 700 ELSE RETURN 

1750 CLS: PRINT:PRINT:PRINT"MOGNTH 
aera 

1760 FRINT:PRINT"DAY :"; 

1770 PRINT:PRINT"YEAR :"3Y 

1780 PRINT:INPUT"IS THIS INFORMA 

TION CORRECT (Y/N) :";X$ 
1790 IF LEFTS(X%,1)<>"Y" THEN GO 

TO 240 ELSE RETURN 
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